home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / PCGTERMHAYES.ARC / PCG PHONE ED V.5 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  93 lines
  1. 10 REM        
  2. 15 POKE53281,.:POKE53280,.:OPEN15,8,15,"I":L=214:BLANK$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  3. 20 REM ****************************
  4. 25 :
  5. 30 PRINT"[147][153]>> [208]HONE [198]ILE [197]DITOR [214].5 BY EGBELL <<<"
  6. 35 PRINT"[1] [215]RITE [198]ILE":PRINT"[2] [197]DIT":PRINT"[3] [195]REATE"
  7. 40 PRINT"[211]ELECT: ";
  8. 45 GOSUB305:IFA$=CHR$(13)THENPRINT:PRINT:END
  9. 50 IFA<1ORA>3THENPRINT"[164][157]";:GOTO45
  10. 55 ONAGOSUB215,180,380
  11. 60 :
  12. 65 ONAGOTO30
  13. 70 :
  14. 75 Y=8:Z=12:GOSUB430
  15. 76 IFA=2THENPOKEL,2:PRINT:PRINTTAB(9)"[150]"FI$" "
  16. 80 POKEL,5:PRINT:PRINT">> [208]RESS [210]ETURN [212]O [197]XIT <<"
  17. 85 POKEL,7:PRINT:PRINT"[197]DIT [215]HICH [210]ECORD [150][1-8]  ?[157]";:GOSUB315
  18. 90 IF A=.THENY=6:Z=24:GOSUB430:GOTO30
  19. 95 BA=55816+(40*A):FORX=0TO38:POKEBA+X,13:NEXT:POKE781,6:SYS59903
  20. 100 IFA>8GOTO85
  21. 105 POKEL,7:PRINT:PRINTTAB(24)PH$(A):INPUT"[214]ERIFY  Y[157][157][157]";C$
  22. 110 IFC$<>"Y"THENGOSUB400:GOTO75
  23. 115 Y=8:Z=11:GOSUB430
  24. 120 HO$=PH$(A):PH$(A)="":POKEL,7:PRINT:INPUT"[197]NTER [212]ELEPHONE [206]UMBER [157]";PH$(A)
  25. 125 PH$(A)=LEFT$(PH$(A),18)
  26. 130 IFPH$(A)=""THENPH$(A)=BLANK$:CM$(A)=BLANK$:GOSUB400:GOTO75
  27. 135 INPUT"[214]ERIFY  Y[157][157][157]";C$:IFC$<>"Y"THENPH$(A)=HO$:GOSUB395:GOTO75
  28. 140 PRINT"[145][195]OMMENT [16 CHARS [205]AX][150][153]"
  29. 145 INPUTCM$(A):CM$=LEFT$(CM$,16)
  30. 150 PRINTTAB(20)"[145]";:INPUT"[214]ERIFY  Y[157][157][157]";C$:IFC$="Y"THENGOSUB395:GOTO75
  31. 155 PH$(A)=HO$:Y=8:Z=12:GOSUB430:POKEL,12:PRINT:GOTO120
  32. 160 :
  33. 165 REM ****************************
  34. 170 :
  35. 175 IFFI$=""THENRETURN
  36. 180 GOSUB335:IF FI$="?"THENRETURN
  37. 185 OPEN7,8,7,FI$:GOSUB285:IFE>.THENCLOSE7:RETURN
  38. 190 FORX=1TO8:INPUT#7,PH$(X),CM$(X)
  39. 195 NEXT:CLOSE7:GOTO395
  40. 200 :
  41. 205 REM ****************************
  42. 210 :
  43. 215 GOSUB450:IFY=.THENRETURN
  44. 220 GOSUB395:GOSUB335:IFFI$="?"THENRETURN
  45. 225 OPEN7,8,7,FI$+",S,W":GOSUB285:IFE=.GOTO250
  46. 230 CLOSE7:IFE<>63THENRETURN
  47. 235 PRINT:INPUT"[210]EPLACE [207]LD [198]ILE   N[157][157][157]";C$
  48. 240 IFC$<>"Y"THENY=6:Z=24:GOSUB430:GOTO220
  49. 245 POKEL,9:PRINT:PRINT"[211]CRATCHING...":PRINT#15,"S0:"FI$:PRINT#15,"I":GOTO225
  50. 250 POKEL,9:PRINT:PRINT"[153][215]RITING [198]ILE...
  51. 255 [129]X[178]1[164]8:[139]PH$(X)[178]""[167]PH$(X)[178]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSE":CM$(X)[178]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
  52. 260 [152]7,PH$(X):[152]7,CM$(X)
  53. 265 [130]:[129]X[178]1[164]8:[152]7,"*":[130]:[160]7:[142]
  54. 270 :
  55. 275 [143] ****************************
  56. 280 :
  57. 285 [132]15,E,EM$,TK$,SC$:[139]E[178].[167] [142]
  58. 290 E$[178][202]([196](E),2):C$[178]", ":[151]L,5
  59. 295 [153]:[153]"FOR>>   "E$C$EM$C$TK$C$SC$"   <<":[137]460
  60. 300 :
  61. 305 [143] ****************************
  62. 310 :
  63. 315 [151]198,.:[146]198,1:[161]A$:[153]A$"CMD";:A[178][197](A$):[142]
  64. 320 :
  65. 325 [143] ****************************
  66. 330 :
  67. 335 [151]L,5
  68. 340 [153]:FI$[178]"":[153]"VALNTER ASCILE (null)AME  :PH.STOP?CMDLIST";
  69. 345 [159]50,.
  70. 350 [132]50,FI$:[160]50:[139]FI$[178]"?"[167][142]
  71. 355 [139][201](FI$,1)[178]"*"[137]370
  72. 360 FI$[178][200]("PH."[170]FI$,16)
  73. 365 :
  74. 370 Y[178]6:Z[178]8:[137]430
  75. 375 :
  76. 380 [129]X[178]1[164]8:PH$(X)[178]BL$:CM$(X)[178]BL$:[130]
  77. 385 [143] ****************************
  78. 390 :
  79. 395 Y[178]13:Z[178]24:[141]430
  80. 400 [151]L,13:[153]:[129]X[178]1[164]8
  81. 405 [153]"[";[202]([196](X),2)"]"[163]4)PH$(X);
  82. 410 [153]""[163]23)[200](CM$(X)[170]"                  ",16):[130]:[142]
  83. 415 :
  84. 420 [143] ****************************
  85. 425 :
  86. 430 [129]X[178]Y[164]Z:[151]781,X:[158]59903:[151]217[170]X,[194](217[170]X)[176]128:[130]:[142]
  87. 435 :
  88. 440 [143] ****************************
  89. 445 :
  90. 450 Y[178].:[129]X[178]1[164]8:Y[178]Y[171](PH$(X)[177]""):[130]:[139]Y[177].[167][142]
  91. 455 [153]:[153]"ONFOR>>>  (null)O ASCILES (null)O (null)RITE...  <<<
  92. 460 FORX=1TO2500:NEXT:RETURN
  93.